home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 19 / Night Owl (The Best of Shareware)(NOPV 19)(1996).ISO / 004a / twast23.zip / TWASTMAC.ZIP / SHADOW1.ASP < prev    next >
Text File  |  1993-03-21  |  483b  |  21 lines
  1. proc Shadow
  2.    intparm rowHigh, colLeft, rowLow, colRight
  3.    integer wideCol = colRight + 1
  4.    integer lastCol = wideCol + 1
  5.    integer shadowRow = rowHigh + 1
  6.    integer HiRow = rowLow + 1
  7.    integer Col = colLeft + 1
  8.    integer wide =  colRight + 1
  9.    integer wor = rowLow + 1
  10.    integer rr
  11.    for rr = shadowRow upto HiRow
  12.       putvattr rr wideCol 8
  13.       putvattr rr lastCol 8
  14.    endfor
  15.    for rr = Col upto wide
  16.       putvattr wor rr 8
  17.    endfor
  18.  
  19. endproc
  20.  
  21.